s = Procedural.BezierCurve2():addPoint(Procedural.Vector2(0,0))
                             :addPoint(Procedural.Vector2(1,0))
							 :addPoint(Procedural.Vector2(1,1))
							 :addPoint(Procedural.Vector2(2,1))
							 :addPoint(Procedural.Vector2(2,0))
							 :addPoint(Procedural.Vector2(3,0))
							 :addPoint(Procedural.Vector2(3,1))
							 :addPoint(Procedural.Vector2(4,1))
							 :addPoint(Procedural.Vector2(4,0))
							 :realizeShape()
							 :translate(-2,0)
tests:addShape(s)